﻿''' <summary>
''' @NAMNN
''' GridView: Khi focus trên row = 0, nhấn key Up => di chuyển lên AutoFilterRowHandle
''' </summary>
''' <remarks></remarks>
Public Class VmsGridView
    Inherits DevExpress.XtraGrid.Views.Grid.GridView
   
    Public Overloads Sub Shadow(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If Me.FocusedRowHandle = 0 AndAlso e.KeyCode = Windows.Forms.Keys.Up Then
            Me.FocusedRowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle
        End If
        If e.Control AndAlso e.KeyCode = Windows.Forms.Keys.C Then
            e.Handled = Publics.SetClipboardValueCellFocusInGrid(Me)
        End If
    End Sub

    Protected Overrides ReadOnly Property ViewName() As String
        Get
            Return MyBase.ViewName
        End Get
    End Property

    Private Sub InitializeComponent()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'VmsGridView
        '
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
    End Sub

    Private Sub VmsGridView_ShowGridMenu(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.GridMenuEventArgs) Handles Me.ShowGridMenu
        If (e.HitInfo.InColumn) Then
            e.Menu.Items(0).Caption = "Sắp xếp tăng theo cột này"
            e.Menu.Items(1).Caption = "Sắp xếp giảm theo cột này"
            e.Menu.Items(2).Caption = "Hủy sắp xếp của cột này"
            e.Menu.Items(3).Caption = "Nhóm cột này"
            e.Menu.Items(4).Caption = "Hiển thị hộp nhóm"
            e.Menu.Items(5).Caption = "Loại bỏ cột này"
            e.Menu.Items(6).Caption = "Chọn các cột"
            e.Menu.Items(7).Caption = "Căn vừa độ rộng cho cột này"
            e.Menu.Items(8).Caption = "Lọc dữ liệu theo cột này"
            ' e.Menu.Items(9).Caption = "Lọc dữ liệu theo cột này"
        End If 
    End Sub
     
End Class
